#!/usr/bin/perl -w                                                              
use HTML::TreeBuilder;                                                          
use HTML::FormatText;                                                           
                                                                                
$file = shift;                                                                  
$tree = HTML::TreeBuilder->new->parse_file("$file");                            
                                                                                
$formatter = HTML::FormatText->new(leftmargin => 3, rightmargin => 100);        
print $formatter->format($tree);                                                
